10 S=54272:FOR T=S TO S+24:POKE T,0:NEXT
20 POKE S+3,8:POKE S+5,12:POKE S+6,29:POKE S+24,15
30 PRINT CHR$(147)CHR$(144):POKE 53280,1:POKE 53281,1
40 FOR T=1 TO 8:PRINT "                  [164][164][164]":NEXT
50 PRINT "[164][164][213][201][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
60 [153] "TOTOPEEKPEEKTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
70 PRINT "[164][213][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
80 [153] "TOPEEK(null)RIGHT$TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
90 PRINT "[164][202][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
92 [153] " MID$(null)               TOTOTO
94 FOR T=1 TO 7:PRINT "                  [164][164][164]":NEXT
100 V=53248
110 N=125
120 FOR J=12288 TO 12350:READ D:POKE J,D:NEXT
130 DATA0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3
140 DATA0,0,3,0,0,251,0,3,255,0,7,255,0,7,255,0,7,255,0,3,254,0,0,248,0,0,0
150 POKE V+39,5
160 POKE 2040,192
170 POKE V,160
180 POKE V+1,N
190 POKE V+21,1
200 DIM FU(41),FL(41),C(41)
210 K=256:FOR J=41 TO 1 STEP -1:READ D,C(J):FU(J)=INT(D/K):FL(J)=D-FU(J)*K:NEXT
220 DATA1072,5,1204,2,1351,3,1432,4,1607,12,1804,6,2025,7,2145,5,2408,2,2703,3
225 DATA2864,4,3215,12,3608,6,4050,7,4291,5,4817,2,5407,3,5728,4,6430,12,7216,6
235 DATA8101,7,8583,5,9634,2,10814,3,11457,4,12860,12,14435,6,16203,7,17167,5
240 DATA19269,2,21629,3,22915,4,25721,12,28871,6,32407,7,34334,5,38539,2
250 DATA43258,3,45830,4,51443,12,57743,6
300 JS=56320
310 JD=PEEK(JS)
320 IF JD=126 THEN N=N-4:IF N<49 THEN N=49
330 IF JD=125 THEN N=N+4:IF N>209 THEN N=209
340 IF JD=111 THEN GOSUB 400
350 IF JD=110 THEN GOSUB 400:N=N-4:IF N<49 THEN N=49
360 IF JD=109 THEN GOSUB 400:N=N+4:IF N>209 THEN N=209
370 POKE V+1,N:Q=INT(N/4-11)
380 POKE V+39,C(Q)
390 GOTO 310
400 POKE S,FL(Q):POKE S+1,FU(Q)
410 POKE S+4,64:POKE S+4,65
420 RETURN